unit ConsultaDatosCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DatosClienteBase, XPMan, StdCtrls, Buttons, ComCtrls, ExtCtrls,
  ToolWin;

type
  TContacto=class(TObject)
    codigo:integer;
    nombre:string;
  end;

  TfrmConsultaDatosCliente = class(TfrmDatosClienteBase)
    Label11: TLabel;
    edtCuitDni: TEdit;
    Label12: TLabel;
    cmbContacto: TComboBox;
    edtCodContacto: TEdit;
    procedure btnAceptarClick(Sender: TObject);
    procedure btnCancelarClick(Sender: TObject);
    procedure ListaContacto();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConsultaDatosCliente: TfrmConsultaDatosCliente;

implementation

uses Datos;

{$R *.dfm}

procedure TfrmConsultaDatosCliente.btnAceptarClick(Sender: TObject);
begin
  inherited;
  frmConsultaDatosCliente.Close;
end;

procedure TfrmConsultaDatosCliente.btnCancelarClick(Sender: TObject);
begin
  inherited;
  frmConsultaDatosCliente.Close;
end;

procedure TfrmConsultaDatosCliente.ListaContacto;
var objeto:TContacto;
begin
  frmDatos.qryFiltroContactos.Connection:= frmDatos.ZConnection1;
  frmDatos.qryFiltroContactos.SQL.Clear;
  frmDatos.qryFiltroContactos.SQL.Text:='select * from contacto where activo=true';
  frmDatos.qryFiltroContactos.Open;

  cmbContacto.Clear;
  frmDatos.qryFiltroContactos.First;
  while not frmDatos.qryFiltroContactos.Eof do
    begin
      objeto:=TContacto.Create;
      objeto.codigo:=frmDatos.qryFiltroContactos['cod_contacto'];
      objeto.nombre:=frmDatos.qryFiltroContactos['apellido_contacto'] + ' ' + frmDatos.qryFiltroContactos['nombre_contacto'];
      cmbContacto.Items.AddObject(objeto.nombre,objeto);
      frmDatos.qryFiltroContactos.Next;
    end;
end;

end.
